home *** CD-ROM | disk | FTP | other *** search
/ PC World 2008 March / PCWorld_2008-03_cd.bin / zabezpeceni / spyemergency / se-setup365.exe / {app} / SpyEmergencyOn.vbs < prev    next >
Text File  |  2007-10-29  |  448b  |  20 lines
  1. Set objSecurityCenter = GetObject("winmgmts:\\.\root\SecurityCenter")
  2. Set colAntiSpyware = objSecurityCenter.ExecQuery("Select * From AntiSpywareProduct",,48)
  3.  
  4. For Each objAntiSpyware In colAntiSpyware
  5.   
  6.   Dim prodName, compValue
  7.   prodName = "Spy Emergency"
  8.   compValue = StrComp(objAntiSpyware.displayName, prodName)
  9.  
  10.   if compValue = 0 then
  11.  
  12.      objAntiSpyware.productEnabled=TRUE
  13.      objAntiSpyware.Put_
  14.  
  15.   end if
  16.  
  17. Next
  18.  
  19.  
  20.